Game Zone - 1,000+ Games/GAMEZONE.BIN/Programs/Win/ANIMATED KENO/32keno12.exe/KENO.EXE/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1998-06-11 | 7KB | 315 lines

object Form1: TForm1
  Left = 233
  Top = 195
  HelpContext = 41002
  BorderIcons = [biSystemMenu, biMinimize]
  AutoScroll = False
  Caption = 'Animated Keno'
  ClientHeight = 394
  ClientWidth = 632
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnMouseDown = FormMouseDown
  OnMouseMove = FormMouseMove
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 161
    Top = 84
    Width = 48
    Height = 32
    AutoSize = True
    Picture.Data = {<image000.bmp>}
    Visible = False
  end
  object Image2: TImage
    Left = 217
    Top = 84
    Width = 48
    Height = 32
    AutoSize = True
    Picture.Data = {<image001.bmp>}
    Visible = False
  end
  object Image3: TImage
    Left = 17
    Top = 140
    Width = 110
    Height = 32
    AutoSize = True
    Picture.Data = {<image002.bmp>}
    Visible = False
  end
  object Image4: TImage
    Left = 17
    Top = 172
    Width = 110
    Height = 32
    AutoSize = True
    Picture.Data = {<image003.bmp>}
    Visible = False
  end
  object ClearBtn: TImage
    Left = 9
    Top = 356
    Width = 110
    Height = 32
    AutoSize = True
    Picture.Data = {<image004.bmp>}
    OnClick = ClearBtnClick
    OnMouseMove = ClearBtnMouseMove
  end
  object StartBtn: TImage
    Left = 441
    Top = 360
    Width = 112
    Height = 30
    AutoSize = True
    Picture.Data = {<image005.bmp>}
    OnClick = StartBtnClick
    OnMouseMove = StartBtnMouseMove
  end
  object Image5: TImage
    Left = 137
    Top = 140
    Width = 112
    Height = 30
    AutoSize = True
    Picture.Data = {<image006.bmp>}
    Visible = False
  end
  object Image6: TImage
    Left = 137
    Top = 172
    Width = 112
    Height = 30
    AutoSize = True
    Picture.Data = {<image007.bmp>}
    Visible = False
  end
  object Image7: TImage
    Left = 273
    Top = 84
    Width = 48
    Height = 32
    AutoSize = True
    Picture.Data = {<image008.bmp>}
    Visible = False
  end
  object Image8: TImage
    Left = 329
    Top = 84
    Width = 31
    Height = 31
    AutoSize = True
    Picture.Data = {<image009.bmp>}
    Visible = False
  end
  object Image9: TImage
    Left = 369
    Top = 84
    Width = 31
    Height = 31
    AutoSize = True
    Picture.Data = {<image010.bmp>}
    Visible = False
  end
  object Image10: TImage
    Left = 409
    Top = 84
    Width = 31
    Height = 31
    AutoSize = True
    Picture.Data = {<image011.bmp>}
    Visible = False
  end
  object Digits: TImage
    Left = 440
    Top = 184
    Width = 188
    Height = 147
    AutoSize = True
    Picture.Data = {<image012.bmp>}
    Visible = False
  end
  object Bet1: TImage
    Left = 153
    Top = 358
    Width = 111
    Height = 31
    AutoSize = True
    Picture.Data = {<image013.bmp>}
    OnClick = Bet1Click
    OnMouseMove = Bet1MouseMove
  end
  object BetMax: TImage
    Left = 297
    Top = 358
    Width = 111
    Height = 32
    AutoSize = True
    Picture.Data = {<image014.bmp>}
    OnClick = BetMaxClick
    OnMouseMove = BetMaxMouseMove
  end
  object Image12: TImage
    Left = 257
    Top = 140
    Width = 111
    Height = 31
    AutoSize = True
    Picture.Data = {<image015.bmp>}
    Visible = False
  end
  object Image13: TImage
    Left = 257
    Top = 172
    Width = 111
    Height = 31
    AutoSize = True
    Picture.Data = {<image016.bmp>}
    Visible = False
  end
  object Image14: TImage
    Left = 377
    Top = 140
    Width = 111
    Height = 32
    AutoSize = True
    Picture.Data = {<image017.bmp>}
    Visible = False
  end
  object Image15: TImage
    Left = 377
    Top = 172
    Width = 111
    Height = 32
    AutoSize = True
    Picture.Data = {<image018.bmp>}
    Visible = False
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 200
    OnTimer = Timer1Timer
    Left = 142
    Top = 232
  end
  object MainMenu1: TMainMenu
    Left = 174
    Top = 232
    object File1: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object NewGame1: TMenuItem
        Caption = '&New Game'
        ShortCut = 0
        OnClick = NewGame1Click
      end
      object N3: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        ShortCut = 0
        OnClick = Exit1Click
      end
    end
    object Options1: TMenuItem
      Caption = '&Options'
      ShortCut = 0
      object Sound1: TMenuItem
        Caption = '&Sound'
        ShortCut = 0
        OnClick = Sound1Click
      end
    end
    object BorrowCredits1: TMenuItem
      Caption = '&Borrow Credits'
      ShortCut = 0
      object N10001: TMenuItem
        Caption = '1,000'
        ShortCut = 0
        OnClick = N10001Click
      end
      object N1001: TMenuItem
        Caption = '100'
        ShortCut = 0
        OnClick = N1001Click
      end
      object N101: TMenuItem
        Caption = '10'
        ShortCut = 0
        OnClick = N101Click
      end
      object N11: TMenuItem
        Caption = '1'
        ShortCut = 0
        OnClick = N11Click
      end
    end
    object Winnings1: TMenuItem
      Caption = '&Winnings'
      ShortCut = 0
      OnClick = Winnings1Click
    end
    object ViewPayoffs1: TMenuItem
      Caption = '&View Payoffs'
      ShortCut = 0
      OnClick = ViewPayoffs1Click
    end
    object Register1: TMenuItem
      Caption = '&Register'
      ShortCut = 0
      OnClick = Register1Click
    end
    object Help1: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      object About1: TMenuItem
        Caption = '&About Keno'
        ShortCut = 0
        OnClick = About1Click
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object KenoManual1: TMenuItem
        Caption = 'Keno &Manual'
        ShortCut = 0
        OnClick = KenoManual1Click
      end
      object UltisoftCatalog1: TMenuItem
        Caption = 'Ultisoft &Catalog'
        ShortCut = 0
        OnClick = UltisoftCatalog1Click
      end
      object FreeCD1: TMenuItem
        Caption = '&Free CD'
        ShortCut = 0
        OnClick = FreeCD1Click
      end
      object SecureOnlineOrders1: TMenuItem
        Caption = '&Secure Online Orders'
        ShortCut = 0
        OnClick = SecureOnlineOrders1Click
      end
    end
  end
  object Timer2: TTimer
    Enabled = False
    OnTimer = Timer2Timer
    Left = 142
    Top = 303
  end
end